---
title: "Regression model summary from `{easystats}`"
output:
flexdashboard::flex_dashboard:
theme:
version: 4
# bg: "#101010"
# fg: "#FDF7F7"
primary: "#0054AD"
base_font:
google: Prompt
code_font:
google: JetBrains Mono
orientation: columns
vertical_layout: fill
out.width: "100%"
params:
model: model
---
```{r setup, include=FALSE}
library(flexdashboard)
library(easystats)
knitr::opts_chunk$set(
error = TRUE,
comment = "#>"
)
```
```{r}
# Get user-specified model data
model <- params$model
table_parameters <- parameters(model)
table_performance <- performance(model)
text_report <- report(model)
```
Model fit
=====================================
Column {data-width=550}
-----------------------------------------------------------------------
### Assumption checks
```{r check-model, fig.height=10, fig.width=8, out.width="60%"}
check_model(model)
```
Column {data-width=450}
-----------------------------------------------------------------------
### Indices of model fit
```{r}
table_performance
```
Parameter estimates
=====================================
Column {data-width=550}
-----------------------------------------------------------------------
### Plot
```{r dot-whisker}
plot(table_parameters)
```
Column {data-width=450}
-----------------------------------------------------------------------
### Tabular summary
```{r}
table_parameters
```
Extra {data-orientation=rows}
=====================================
### Textual summary
```{r}
text_report
```